home *** CD-ROM | disk | FTP | other *** search
- <?xml version="1.0" encoding="utf-8" ?>
- <!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
- <background>
- <id>64252</id>
- <filler1>0</filler1>
- <cantDelete> <false /> </cantDelete>
- <showPict> <true /> </showPict>
- <dontSearch> <false /> </dontSearch>
- <link rel="stylesheet" type="text/css" href="stylesheet_9613.css" />
- <part>
- <id>1</id>
- <type>button</type>
- <visible> <true /> </visible>
- <reserved5> 0 </reserved5>
- <reserved4> 0 </reserved4>
- <reserved3> 0 </reserved3>
- <reserved2> 0 </reserved2>
- <reserved1> 0 </reserved1>
- <enabled> <true /> </enabled>
- <rect>
- <left>485</left>
- <top>3</top>
- <right>509</right>
- <bottom>22</bottom>
- </rect>
- <style>transparent</style>
- <showName> <false /> </showName>
- <highlight> <false /> </highlight>
- <autoHighlight> <false /> </autoHighlight>
- <sharedHighlight> <true /> </sharedHighlight>
- <family>0</family>
- <titleWidth>0</titleWidth>
- <icon>16560</icon>
- <textAlign>center</textAlign>
- <font>Chicago</font>
- <textSize>12</textSize>
- <textStyle>plain</textStyle>
- <name></name>
- <script>on mouseUp
- visual scroll left fast
- go next
- end mouseUp</script>
- </part>
- <part>
- <id>2</id>
- <type>button</type>
- <visible> <true /> </visible>
- <reserved5> 0 </reserved5>
- <reserved4> 0 </reserved4>
- <reserved3> 0 </reserved3>
- <reserved2> 0 </reserved2>
- <reserved1> 0 </reserved1>
- <enabled> <true /> </enabled>
- <rect>
- <left>3</left>
- <top>3</top>
- <right>27</right>
- <bottom>22</bottom>
- </rect>
- <style>transparent</style>
- <showName> <false /> </showName>
- <highlight> <false /> </highlight>
- <autoHighlight> <false /> </autoHighlight>
- <sharedHighlight> <true /> </sharedHighlight>
- <family>0</family>
- <titleWidth>0</titleWidth>
- <icon>15420</icon>
- <textAlign>center</textAlign>
- <font>Chicago</font>
- <textSize>12</textSize>
- <textStyle>plain</textStyle>
- <name></name>
- <script>on mouseUp
- visual scroll right
- go prev
- end mouseUp</script>
- </part>
- <part>
- <id>3</id>
- <type>field</type>
- <visible> <true /> </visible>
- <dontWrap> <false /> </dontWrap>
- <dontSearch> <false /> </dontSearch>
- <sharedText> <false /> </sharedText>
- <fixedLineHeight> <true /> </fixedLineHeight>
- <autoTab> <false /> </autoTab>
- <lockText> <true /> </lockText>
- <rect>
- <left>89</left>
- <top>2</top>
- <right>436</right>
- <bottom>26</bottom>
- </rect>
- <style>transparent</style>
- <autoSelect> <false /> </autoSelect>
- <showLines> <false /> </showLines>
- <wideMargins> <false /> </wideMargins>
- <multipleLines> <false /> </multipleLines>
- <reservedFamily> 0 </reservedFamily>
- <titleWidth>0</titleWidth>
- <icon>0</icon>
- <textAlign>center</textAlign>
- <font>Helvetica</font>
- <textSize>18</textSize>
- <textStyle>bold</textStyle>
- <textHeight>24</textHeight>
- <name>Title</name>
- <script></script>
- </part>
- <part>
- <id>4</id>
- <type>field</type>
- <visible> <true /> </visible>
- <dontWrap> <false /> </dontWrap>
- <dontSearch> <false /> </dontSearch>
- <sharedText> <false /> </sharedText>
- <fixedLineHeight> <false /> </fixedLineHeight>
- <autoTab> <false /> </autoTab>
- <lockText> <false /> </lockText>
- <rect>
- <left>26</left>
- <top>39</top>
- <right>481</right>
- <bottom>415</bottom>
- </rect>
- <style>scrolling</style>
- <autoSelect> <false /> </autoSelect>
- <showLines> <false /> </showLines>
- <wideMargins> <false /> </wideMargins>
- <multipleLines> <false /> </multipleLines>
- <reservedFamily> 0 </reservedFamily>
- <titleWidth>0</titleWidth>
- <icon>0</icon>
- <textAlign>left</textAlign>
- <font>Geneva</font>
- <textSize>12</textSize>
- <textStyle>plain</textStyle>
- <textHeight>16</textHeight>
- <name>AllOthersFld</name>
- <script></script>
- </part>
- <name></name>
- <script>on TotalCard
- lock screen
- put empty into TypesHolder
- repeat with i = 1 to the number of the last card of bkgnd "ZoneInformation"
- if (not(the suspended) and the shiftKey is "down") then
- exit TotalCard
- end if
- go to card i of bkgnd "ZoneInformation"
- repeat with j = 1 to the number of lines in fld Others
- set cursor to busy
- put line j of fld Others into TypesTemp
- put last line of TypesHolder into Container
-
- set cursor to busy
- if TypesHolder is empty then
- put TypesTemp into TypesHolder
- else if (TypesTemp > Container) then
- put TypesTemp into line (number of lines in TypesHolder + 1) of TypesHolder
- else
- repeat with k = 1 to the number of lines of TypesHolder
- set cursor to busy
- put line k of TypesHolder into Container
- if (TypesTemp = Container) then
- exit repeat
- else if (TypesTemp < Container) then
- put return before line k of TypesHolder
- put TypesTemp into line k of TypesHolder
- exit repeat
- end if
- end repeat
- end if
-
- end repeat
- end repeat
- go to card AllOthers
- put TypesHolder into fld AllOthersFld
- set cursor to normal
- unlock screen
- end TotalCard
-
-
- </script>
- </background>
-